home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / GotoMsg.pint < prev    next >
Text File  |  1997-03-04  |  733b  |  45 lines
  1. /*
  2.  
  3.    $VER: GotoMsg.pint 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.owl.de)
  7.  
  8.    Updated for PINT (22.2.97):
  9.     Magnus Heino (nd95mho@Student.HGS.SE)
  10.  
  11.    Function:
  12.     asks for a message number and display the message
  13.  
  14.    History:
  15.     0.1   initial version
  16.     1.0   released with IntuiNews 1.3
  17.  
  18.    Example for "ums.config":
  19.     ( PINT.Rexx
  20.     ...
  21.         "GroupWindow           F2      GotoMsg.pint\n"
  22.     ...
  23.     )
  24.  
  25. */
  26.  
  27. /* Exit if Group Window is not active. */
  28.  
  29. OPTIONS RESULTS
  30.  
  31. STATUS
  32. IF RESULT~="GROUP" THEN EXIT 5
  33.  
  34. /* Ask the user for the message numbr. */
  35.  
  36. 'GETSTRING TITLE "Goto Message" LABEL "_Message Number"'
  37. IF RESULT="RESULT" THEN EXIT 5
  38. MsgNum=RESULT
  39.  
  40. /* now scan it */
  41.  
  42. BEGINSCAN
  43. 'SCANMSG' MsgNum
  44. ENDSCAN
  45.